

package body impacts is

   function Is_Valid (Imp : T_Impact) return Boolean is
   begin
      return Imp.Genre /= Aucun;
   end Is_Valid;
   pragma Inline(Is_Valid);

   function "<" (G, D : T_Impact) return Boolean is
   begin
      return G.Dt < D.Dt;
   end "<";
   pragma Inline("<");

   function ">" (G, D : T_Impact) return Boolean is
   begin
      return G.Dt > D.Dt;
   end ">";
   pragma Inline(">");


   procedure Set_Dt ( Imp : in out T_Impact; Dt : long_float) is
   begin
      Imp.Dt := Dt;
   end Set_Dt;
   pragma Inline(Set_Dt);




end impacts;
